object DMDados_frm: TDMDados_frm
  OldCreateOrder = False
  Left = 362
  Top = 193
  Height = 369
  Width = 675
  object IBDSProgramaSocial: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSProgramaSocialAfterCancel
    AfterDelete = IBDSProgramaSocialAfterDelete
    AfterInsert = IBDSProgramaSocialAfterInsert
    AfterOpen = IBDSProgramaSocialAfterOpen
    AfterPost = IBDSProgramaSocialAfterPost
    BeforeClose = IBDSProgramaSocialBeforeClose
    BeforeDelete = IBDSProgramaSocialBeforeDelete
    BeforeEdit = IBDSProgramaSocialBeforeEdit
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from PROGRAMAS'
      'where'
      '  IDPROGRAMA = :OLD_IDPROGRAMA')
    InsertSQL.Strings = (
      'insert into PROGRAMAS'
      '  (IDPROGRAMA, DESCRICAO)'
      'values'
      '  (:IDPROGRAMA, :DESCRICAO)')
    RefreshSQL.Strings = (
      'Select '
      '  IDPROGRAMA,'
      '  DESCRICAO'
      'from PROGRAMAS '
      'where'
      '  IDPROGRAMA = :IDPROGRAMA')
    SelectSQL.Strings = (
      'select * from PROGRAMAS'
      'order by DESCRICAO')
    ModifySQL.Strings = (
      'update PROGRAMAS'
      'set'
      '  DESCRICAO = :DESCRICAO'
      'where'
      '  IDPROGRAMA = :OLD_IDPROGRAMA')
    Left = 40
    Top = 16
    object IBDSProgramaSocialIDPROGRAMA: TIntegerField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 17
      FieldName = 'IDPROGRAMA'
      Origin = 'PROGRAMAS.IDPROGRAMA'
      Required = True
    end
    object IBDSProgramaSocialDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      DisplayWidth = 157
      FieldName = 'DESCRICAO'
      Origin = 'PROGRAMAS.DESCRICAO'
      Size = 35
    end
  end
  object IBDSBeneficios: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSBeneficiosAfterCancel
    AfterDelete = IBDSBeneficiosAfterDelete
    AfterInsert = IBDSBeneficiosAfterInsert
    AfterOpen = IBDSBeneficiosAfterOpen
    AfterPost = IBDSBeneficiosAfterPost
    BeforeClose = IBDSBeneficiosBeforeClose
    BeforeDelete = IBDSBeneficiosBeforeDelete
    BeforeEdit = IBDSBeneficiosBeforeEdit
    BeforeInsert = IBDSBeneficiosBeforeInsert
    OnCalcFields = IBDSBeneficiosCalcFields
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from BENEFICIOS'
      'where'
      '  IDBENEFICIO = :OLD_IDBENEFICIO')
    InsertSQL.Strings = (
      'insert into BENEFICIOS'
      
        '  (IDBENEFICIO, DESCRICAO, IDPUBLICO, APLICAVEL, DISPONIBILIZACA' +
        'O, IDTIPO, IDMODALIDADE)'
      'values'
      
        '  (:IDBENEFICIO, :DESCRICAO, :IDPUBLICO, :APLICAVEL, :DISPONIBIL' +
        'IZACAO, :IDTIPO, :IDMODALIDADE)')
    RefreshSQL.Strings = (
      'Select '
      '  IDBENEFICIO,'
      '  DESCRICAO,'
      '  IDPUBLICO,'
      '  APLICAVEL,'
      '  DISPONIBILIZACAO,'
      '  IDTIPO,'
      '  IDMODALIDADE'
      'from BENEFICIOS'
      'where'
      '  IDBENEFICIO = :IDBENEFICIO')
    SelectSQL.Strings = (
      'select * from BENEFICIOS'
      'order by IDBENEFICIO')
    ModifySQL.Strings = (
      'update BENEFICIOS'
      'set'
      '  DESCRICAO = :DESCRICAO,'
      '  IDPUBLICO = :IDPUBLICO,'
      '  APLICAVEL = :APLICAVEL,'
      '  DISPONIBILIZACAO = :DISPONIBILIZACAO,'
      '  IDTIPO = :IDTIPO,'
      '  IDMODALIDADE = :IDMODALIDADE'
      'where'
      '  IDBENEFICIO = :OLD_IDBENEFICIO')
    Left = 144
    Top = 16
    object IBDSBeneficiosIDBENEFICIO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDBENEFICIO'
      Origin = 'BENEFICIOS.IDBENEFICIO'
      Required = True
    end
    object IBDSBeneficiosDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'BENEFICIOS.DESCRICAO'
      Size = 35
    end
    object IBDSBeneficiosIDPUBLICO: TIntegerField
      DisplayLabel = 'P'#250'blico'
      FieldName = 'IDPUBLICO'
      Origin = 'BENEFICIOS.IDPUBLICO'
    end
    object IBDSBeneficiosDESCPUBLICO: TStringField
      DisplayLabel = 'P'#250'blico'
      FieldKind = fkLookup
      FieldName = 'DESCPUBLICO'
      LookupDataSet = IBQPublico
      LookupKeyFields = 'IDPUBLICO'
      LookupResultField = 'DESCRICAO'
      KeyFields = 'IDPUBLICO'
      Size = 37
      Lookup = True
    end
    object IBDSBeneficiosAPLICAVEL: TIBStringField
      DisplayLabel = 'Aplic'#225'vel'
      FieldName = 'APLICAVEL'
      Origin = 'BENEFICIOS.APLICAVEL'
      FixedChar = True
      Size = 1
    end
    object IBDSBeneficiosDESCAPLICAVEL: TStringField
      DisplayLabel = 'Aplic'#225'vel'
      FieldKind = fkCalculated
      FieldName = 'DESCAPLICAVEL'
      Size = 10
      Calculated = True
    end
    object IBDSBeneficiosDISPONIBILIZACAO: TIBStringField
      DisplayLabel = 'Disponibiliza'#231#227'o'
      FieldName = 'DISPONIBILIZACAO'
      Origin = 'BENEFICIOS.DISPONIBILIZACAO'
      FixedChar = True
      Size = 1
    end
    object IBDSBeneficiosDESCDISPONIBILIZACAO: TStringField
      DisplayLabel = 'Disponibiliza'#231#227'o'
      FieldKind = fkCalculated
      FieldName = 'DESCDISPONIBILIZACAO'
      Size = 10
      Calculated = True
    end
    object IBDSBeneficiosIDTIPO: TIntegerField
      DisplayLabel = 'Tipo'
      FieldName = 'IDTIPO'
      Origin = 'BENEFICIOS.IDTIPO'
    end
    object IBDSBeneficiosDESCTIPO: TStringField
      DisplayLabel = 'Tipo'
      FieldKind = fkLookup
      FieldName = 'DESCTIPO'
      LookupDataSet = IBQTipo
      LookupKeyFields = 'IDTIPO'
      LookupResultField = 'DESCRICAO'
      KeyFields = 'IDTIPO'
      Size = 35
      Lookup = True
    end
    object IBDSBeneficiosIDMODALIDADE: TIntegerField
      DisplayLabel = 'Modalidade'
      FieldName = 'IDMODALIDADE'
      Origin = 'BENEFICIOS.IDMODALIDADE'
    end
    object IBDSBeneficiosDESCMODALIDADE: TStringField
      DisplayLabel = 'Modalidade'
      FieldKind = fkLookup
      FieldName = 'DESCMODALIDADE'
      LookupDataSet = IBQModalidade
      LookupKeyFields = 'IDMODALIDADE'
      LookupResultField = 'DESCRICAO'
      KeyFields = 'IDMODALIDADE'
      Size = 35
      Lookup = True
    end
  end
  object IBQPublico: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQPublicoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from PUBLICOBENEFICIO'
      'where IDPUBLICO > 0'
      'order by IDPUBLICO')
    Left = 600
    Top = 16
    object IBQPublicoIDPUBLICO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDPUBLICO'
      Origin = 'PUBLICOBENEFICIO.IDPUBLICO'
      Required = True
    end
    object IBQPublicoDESCRICAO: TIBStringField
      DisplayLabel = 'Descricao'
      FieldName = 'DESCRICAO'
      Origin = 'PUBLICOBENEFICIO.DESCRICAO'
      Required = True
      Size = 35
    end
  end
  object IBQTipo: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQTipoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from TIPOBENEFICIO'
      'where IDTIPO > 0'
      'order by DESCRICAO')
    Left = 600
    Top = 112
    object IBQTipoIDTIPO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDTIPO'
      Origin = 'TIPOBENEFICIO.IDTIPO'
      Required = True
    end
    object IBQTipoDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'TIPOBENEFICIO.DESCRICAO'
      Required = True
      Size = 35
    end
  end
  object IBQModalidade: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQModalidadeAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from MODALIDADEATENDIMENTO'
      'where IDMODALIDADE > 0'
      'order by IDMODALIDADE')
    Left = 600
    Top = 64
    object IBQModalidadeIDMODALIDADE: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDMODALIDADE'
      Origin = 'MODALIDADEATENDIMENTO.IDMODALIDADE'
      Required = True
    end
    object IBQModalidadeDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'MODALIDADEATENDIMENTO.DESCRICAO'
      Required = True
      Size = 35
    end
  end
  object IBQAplicacao: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQAplicacaoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from APLICACAO'
      'where IDAPLICACAO > 0'
      'order by IDAPLICACAO')
    Left = 504
    Top = 16
    object IBQAplicacaoIDAPLICACAO: TIntegerField
      DisplayLabel = 'ID'
      FieldName = 'IDAPLICACAO'
      Origin = 'APLICACAO.IDAPLICACAO'
      Required = True
    end
    object IBQAplicacaoCODIGO: TIBStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
      Origin = 'APLICACAO.CODIGO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object IBQAplicacaoDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'APLICACAO.DESCRICAO'
      Required = True
      Size = 10
    end
  end
  object IBQDisponibilizacao: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQDisponibilizacaoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from DISPONIBILIZACAO'
      'where IDDISPONIBILIZACAO > 0'
      'order by IDDISPONIBILIZACAO')
    Left = 504
    Top = 64
    object IBQDisponibilizacaoIDDISPONIBILIZACAO: TIntegerField
      DisplayLabel = 'ID'
      FieldName = 'IDDISPONIBILIZACAO'
      Origin = 'DISPONIBILIZACAO.IDDISPONIBILIZACAO'
      Required = True
    end
    object IBQDisponibilizacaoCODIGO: TIBStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
      Origin = 'DISPONIBILIZACAO.CODIGO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object IBQDisponibilizacaoDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'DISPONIBILIZACAO.DESCRICAO'
      Required = True
      Size = 10
    end
  end
  object IBDSPessoas: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSPessoasAfterCancel
    AfterDelete = IBDSPessoasAfterDelete
    AfterInsert = IBDSPessoasAfterInsert
    AfterOpen = IBDSPessoasAfterOpen
    BeforeClose = IBDSPessoasBeforeClose
    BeforeDelete = IBDSPessoasBeforeDelete
    BeforeEdit = IBDSPessoasBeforeEdit
    BeforeInsert = IBDSPessoasBeforeInsert
    BeforePost = IBDSPessoasBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from PESSOAS'
      'where'
      '  IDPESSOA = :OLD_IDPESSOA')
    InsertSQL.Strings = (
      'insert into PESSOAS'
      
        '  (IDPESSOA, IDDOMICILIO, NOME, DATANASCIMENTO, IDSEXO, MAE, PAI' +
        ', NATURALIDADE, '
      
        '   UFNATURAL, IDESTADOCIVIL, IDRELACAORF, IDESCOLARIDADE, ESCOLA' +
        ', PROFISSAO, '
      
        '   RENDA, EMPRESA, DATAADMISSAO, OUTRASRENDAS, RG, EXPEDICAORG, ' +
        'ESTADORG, '
      
        '   NIS, CPF, TITULOELEITOR, ZONATITULO, SECAOTITULO, CTPS, SERIE' +
        'CTPS, EMISSAOCTPS, '
      
        '   ESTADOCTPS, RF, NAOSABEMAE, NAOSABEPAI, PENSAOALIMENTICIA, LO' +
        'ASBPC, APOSENTADORIA, DATACADASTRO,'
      
        '   DATAATUALIZACAO, IDUSUARIOCADASTRO, IDUSUARIOATUALIZACAO, PRO' +
        'JOVEMADOLESCENTE,'
      
        '   VACINADO, IDASSISTENCIASOCIAL, IDSAUDE, CARTORIO, REGLIVRO, R' +
        'EGFOLHA, REGTERMO, TIPOBPC,'
      '   TIPOREGISTRO, IDRACA)'
      'values'
      
        '  (:IDPESSOA, :IDDOMICILIO, :NOME, :DATANASCIMENTO, :IDSEXO, :MA' +
        'E, :PAI, '
      
        '   :NATURALIDADE, :UFNATURAL, :IDESTADOCIVIL, :IDRELACAORF, :IDE' +
        'SCOLARIDADE, '
      
        '   :ESCOLA, :PROFISSAO, :RENDA, :EMPRESA, :DATAADMISSAO, :OUTRAS' +
        'RENDAS, '
      
        '   :RG, :EXPEDICAORG, :ESTADORG, :NIS, :CPF, :TITULOELEITOR, :ZO' +
        'NATITULO, :SECAOTITULO, '
      
        '   :CTPS, :SERIECTPS, :EMISSAOCTPS, :ESTADOCTPS, :RF, :NAOSABEMA' +
        'E, :NAOSABEPAI,'
      
        '   :PENSAOALIMENTICIA, :LOASBPC, :APOSENTADORIA, :DATACADASTRO, ' +
        ':DATAATUALIZACAO, :IDUSUARIOCADASTRO,'
      '   :IDUSUARIOATUALIZACAO, :PROJOVEMADOLESCENTE,'
      
        '   :VACINADO, :IDASSISTENCIASOCIAL, :IDSAUDE, :CARTORIO, :REGLIV' +
        'RO, :REGFOLHA, :REGTERMO, '
      '   :TIPOBPC, :TIPOREGISTRO, :IDRACA)')
    RefreshSQL.Strings = (
      'Select '
      '  IDPESSOA,'
      '  IDDOMICILIO,'
      '  NOME,'
      '  DATANASCIMENTO,'
      '  IDSEXO,'
      '  MAE,'
      '  PAI,'
      '  NATURALIDADE,'
      '  UFNATURAL,'
      '  IDESTADOCIVIL,'
      '  IDRELACAORF,'
      '  IDESCOLARIDADE,'
      '  ESCOLA,'
      '  PROFISSAO,'
      '  RENDA,'
      '  EMPRESA,'
      '  DATAADMISSAO,'
      '  OUTRASRENDAS,'
      '  RG,'
      '  EXPEDICAORG,'
      '  ESTADORG,'
      '  NIS,'
      '  CPF,'
      '  TITULOELEITOR,'
      '  ZONATITULO,'
      '  SECAOTITULO,'
      '  CTPS,'
      '  SERIECTPS,'
      '  EMISSAOCTPS,'
      '  ESTADOCTPS,'
      '  RF,'
      '  NAOSABEMAE,'
      '  NAOSABEPAI,'
      '  PENSAOALIMENTICIA,'
      '  LOASBPC,'
      '  APOSENTADORIA,'
      '  DATACADASTRO,'
      '  DATAATUALIZACAO,'
      '  IDUSUARIOCADASTRO,'
      '  IDUSUARIOATUALIZACAO,'
      '  PROJOVEMADOLESCENTE,'
      '  VACINADO,'
      '  IDASSISTENCIASOCIAL,'
      '  IDSAUDE,'
      '  CARTORIO,'
      '  REGLIVRO,'
      '  REGFOLHA,'
      '  REGTERMO,'
      '  TIPOBPC,'
      '  TIPOREGISTRO,'
      '  IDRACA'
      'from PESSOAS '
      'where'
      '  IDPESSOA = :IDPESSOA')
    SelectSQL.Strings = (
      'select'
      '   A.IDPESSOA,'
      '   A.IDDOMICILIO,'
      '   A.NOME,'
      '   A.DATANASCIMENTO,'
      '   A.IDSEXO,'
      '   A.MAE,'
      '   A.PAI,'
      '   A.NATURALIDADE,'
      '   A.UFNATURAL,'
      '   A.IDESTADOCIVIL,'
      '   A.IDRELACAORF,'
      '   A.IDESCOLARIDADE,'
      '   A.ESCOLA,'
      '   A.PROFISSAO,'
      '   A.RENDA,'
      '   A.EMPRESA,'
      '   A.DATAADMISSAO,'
      '   A.OUTRASRENDAS,'
      '   A.RG,'
      '   A.EXPEDICAORG,'
      '   A.ESTADORG,'
      '   A.NIS,'
      '   A.CPF,'
      '   A.TITULOELEITOR,'
      '   A.ZONATITULO,'
      '   A.SECAOTITULO,'
      '   A.CTPS,'
      '   A.SERIECTPS,'
      '   A.EMISSAOCTPS,'
      '   A.ESTADOCTPS,'
      '   A.RF,'
      '   A.NAOSABEMAE,'
      '   A.NAOSABEPAI,'
      '   A.PENSAOALIMENTICIA,'
      '   A.LOASBPC,'
      '   A.APOSENTADORIA,'
      '   A.DATACADASTRO,'
      '   A.DATAATUALIZACAO,'
      '   A.IDUSUARIOCADASTRO,'
      '   B.USUARIO AS NOMCAD,'
      '   A.IDUSUARIOATUALIZACAO,'
      '   C.USUARIO AS NOMATU,'
      '   A.PROJOVEMADOLESCENTE,'
      '   A.VACINADO,'
      '   A.IDASSISTENCIASOCIAL,'
      '   A.IDSAUDE,'
      '   A.CARTORIO,'
      '   A.REGLIVRO,'
      '   A.REGFOLHA,'
      '   A.REGTERMO,'
      '   A.TIPOBPC,'
      '   A.TIPOREGISTRO,'
      '   A.IDRACA'
      'from'
      '   PESSOAS A'
      'join'
      '   USUARIOS B'
      '   ON B.REGISTRO = A.IDUSUARIOCADASTRO'
      'join'
      '   USUARIOS C'
      '   ON C.REGISTRO = A.IDUSUARIOATUALIZACAO'
      'where'
      '   A.IDDOMICILIO = :DOMICILIO'
      'ORDER BY'
      '   A.IDDOMICILIO,'
      '   A.IDRELACAORF,'
      '   A.DATANASCIMENTO,'
      '   A.NOME')
    ModifySQL.Strings = (
      'update PESSOAS'
      'set'
      '  NOME = :NOME,'
      '  DATANASCIMENTO = :DATANASCIMENTO,'
      '  IDSEXO = :IDSEXO,'
      '  MAE = :MAE,'
      '  PAI = :PAI,'
      '  NATURALIDADE = :NATURALIDADE,'
      '  UFNATURAL = :UFNATURAL,'
      '  IDESTADOCIVIL = :IDESTADOCIVIL,'
      '  IDRELACAORF = :IDRELACAORF,'
      '  IDESCOLARIDADE = :IDESCOLARIDADE,'
      '  ESCOLA = :ESCOLA,'
      '  PROFISSAO = :PROFISSAO,'
      '  RENDA = :RENDA,'
      '  EMPRESA = :EMPRESA,'
      '  DATAADMISSAO = :DATAADMISSAO,'
      '  OUTRASRENDAS = :OUTRASRENDAS,'
      '  RG = :RG,'
      '  EXPEDICAORG = :EXPEDICAORG,'
      '  ESTADORG = :ESTADORG,'
      '  NIS = :NIS,'
      '  CPF = :CPF,'
      '  TITULOELEITOR = :TITULOELEITOR,'
      '  ZONATITULO = :ZONATITULO,'
      '  SECAOTITULO = :SECAOTITULO,'
      '  CTPS = :CTPS,'
      '  SERIECTPS = :SERIECTPS,'
      '  EMISSAOCTPS = :EMISSAOCTPS,'
      '  ESTADOCTPS = :ESTADOCTPS,'
      '  RF = :RF,'
      '  NAOSABEMAE = :NAOSABEMAE,'
      '  NAOSABEPAI = :NAOSABEPAI,'
      '  PENSAOALIMENTICIA = :PENSAOALIMENTICIA,'
      '  LOASBPC = :LOASBPC,'
      '  APOSENTADORIA = :APOSENTADORIA,'
      '  DATAATUALIZACAO = :DATAATUALIZACAO,'
      '  IDUSUARIOATUALIZACAO = :IDUSUARIOATUALIZACAO,'
      '  PROJOVEMADOLESCENTE = :PROJOVEMADOLESCENTE,'
      '  VACINADO = :VACINADO,'
      '  IDASSISTENCIASOCIAL = :IDASSISTENCIASOCIAL,'
      '  IDSAUDE = :IDSAUDE,'
      '  CARTORIO = :CARTORIO,'
      '  REGLIVRO = :REGLIVRO,'
      '  REGFOLHA = :REGFOLHA,'
      '  REGTERMO = :REGTERMO,'
      '  TIPOBPC = :TIPOBPC,'
      '  TIPOREGISTRO = :TIPOREGISTRO,'
      '  IDRACA = :IDRACA'
      'where'
      '  IDPESSOA = :OLD_IDPESSOA')
    Left = 144
    Top = 72
    object IBDSPessoasIDDOMICILIO: TIntegerField
      DisplayLabel = 'C'#243'd. Domic'#237'lio'
      FieldName = 'IDDOMICILIO'
      Origin = 'PESSOAS.IDDOMICILIO'
      Required = True
    end
    object IBDSPessoasIDPESSOA: TIntegerField
      DisplayLabel = 'C'#243'd. Pessoa'
      FieldName = 'IDPESSOA'
      Origin = 'PESSOAS.IDPESSOA'
      Required = True
    end
    object IBDSPessoasNOME: TIBStringField
      DisplayLabel = 'Nome Integrante Domic'#237'lio'
      FieldName = 'NOME'
      Origin = 'PESSOAS.NOME'
      Size = 50
    end
    object IBDSPessoasDATANASCIMENTO: TDateField
      DisplayLabel = 'Data Nascimento'
      FieldName = 'DATANASCIMENTO'
      Origin = 'PESSOAS.DATANASCIMENTO'
      OnGetText = IBDSPessoasDATANASCIMENTOGetText
      OnSetText = IBDSPessoasDATANASCIMENTOSetText
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBDSPessoasIDSEXO: TIntegerField
      DisplayLabel = 'Sexo'
      FieldName = 'IDSEXO'
      Origin = 'PESSOAS.IDSEXO'
    end
    object IBDSPessoasMAE: TIBStringField
      DisplayLabel = 'Nome M'#227'e'
      FieldName = 'MAE'
      Origin = 'PESSOAS.MAE'
      Size = 50
    end
    object IBDSPessoasPAI: TIBStringField
      DisplayLabel = 'Nome Pai'
      FieldName = 'PAI'
      Origin = 'PESSOAS.PAI'
      Size = 50
    end
    object IBDSPessoasNATURALIDADE: TIBStringField
      DisplayLabel = 'Naturalidade'
      FieldName = 'NATURALIDADE'
      Origin = 'PESSOAS.NATURALIDADE'
      Size = 35
    end
    object IBDSPessoasUFNATURAL: TIBStringField
      DisplayLabel = 'UF Naturalidade'
      FieldName = 'UFNATURAL'
      Origin = 'PESSOAS.UFNATURAL'
      FixedChar = True
      Size = 2
    end
    object IBDSPessoasIDESTADOCIVIL: TIntegerField
      DisplayLabel = 'Estado Civil'
      FieldName = 'IDESTADOCIVIL'
      Origin = 'PESSOAS.IDESTADOCIVIL'
    end
    object IBDSPessoasIDRELACAORF: TIntegerField
      DisplayLabel = 'Rela'#231#227'o RF'
      FieldName = 'IDRELACAORF'
      Origin = 'PESSOAS.IDRELACAORF'
    end
    object IBDSPessoasIDESCOLARIDADE: TIntegerField
      DisplayLabel = 'Escolaridade'
      FieldName = 'IDESCOLARIDADE'
      Origin = 'PESSOAS.IDESCOLARIDADE'
    end
    object IBDSPessoasESCOLA: TIBStringField
      DisplayLabel = 'Escola'
      FieldName = 'ESCOLA'
      Origin = 'PESSOAS.ESCOLA'
      Size = 50
    end
    object IBDSPessoasPROFISSAO: TIBStringField
      DisplayLabel = 'Profiss'#227'o'
      FieldName = 'PROFISSAO'
      Origin = 'PESSOAS.PROFISSAO'
      Size = 35
    end
    object IBDSPessoasRENDA: TIBBCDField
      DisplayLabel = 'Renda'
      FieldName = 'RENDA'
      Origin = 'PESSOAS.RENDA'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSPessoasEMPRESA: TIBStringField
      DisplayLabel = 'Empresa'
      FieldName = 'EMPRESA'
      Origin = 'PESSOAS.EMPRESA'
      Size = 50
    end
    object IBDSPessoasDATAADMISSAO: TDateField
      DisplayLabel = 'Data Admiss'#227'o'
      FieldName = 'DATAADMISSAO'
      Origin = 'PESSOAS.DATAADMISSAO'
      OnGetText = IBDSPessoasDATAADMISSAOGetText
      OnSetText = IBDSPessoasDATAADMISSAOSetText
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBDSPessoasOUTRASRENDAS: TIBBCDField
      DisplayLabel = 'Outras Rendas'
      FieldName = 'OUTRASRENDAS'
      Origin = 'PESSOAS.OUTRASRENDAS'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSPessoasRG: TIBStringField
      FieldName = 'RG'
      Origin = 'PESSOAS.RG'
      Size = 11
    end
    object IBDSPessoasEXPEDICAORG: TDateField
      DisplayLabel = 'Expedi'#231#227'o RG'
      FieldName = 'EXPEDICAORG'
      Origin = 'PESSOAS.EXPEDICAORG'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBDSPessoasESTADORG: TIBStringField
      DisplayLabel = 'UF RG'
      FieldName = 'ESTADORG'
      Origin = 'PESSOAS.ESTADORG'
      FixedChar = True
      Size = 2
    end
    object IBDSPessoasNIS: TIBStringField
      FieldName = 'NIS'
      Origin = 'PESSOAS.NIS'
      EditMask = '!999\.999\.9999\.9;0; '
      Size = 11
    end
    object IBDSPessoasCPF: TIBStringField
      FieldName = 'CPF'
      Origin = 'PESSOAS.CPF'
      EditMask = '!999\.999\.999\-99;0; '
      Size = 11
    end
    object IBDSPessoasTITULOELEITOR: TIBStringField
      DisplayLabel = 'T'#237'tulo Eleitor'
      FieldName = 'TITULOELEITOR'
      Origin = 'PESSOAS.TITULOELEITOR'
      Size = 13
    end
    object IBDSPessoasZONATITULO: TIntegerField
      DisplayLabel = 'Zona Eleitoral'
      FieldName = 'ZONATITULO'
      Origin = 'PESSOAS.ZONATITULO'
    end
    object IBDSPessoasSECAOTITULO: TIntegerField
      DisplayLabel = 'Se'#231#227'o Vota'#231#227'o'
      FieldName = 'SECAOTITULO'
      Origin = 'PESSOAS.SECAOTITULO'
    end
    object IBDSPessoasCTPS: TIBStringField
      FieldName = 'CTPS'
      Origin = 'PESSOAS.CTPS'
      Size = 10
    end
    object IBDSPessoasSERIECTPS: TIBStringField
      DisplayLabel = 'S'#233'rie CTPS'
      FieldName = 'SERIECTPS'
      Origin = 'PESSOAS.SERIECTPS'
      Size = 5
    end
    object IBDSPessoasEMISSAOCTPS: TDateField
      DisplayLabel = 'Emiss'#227'o CTPS'
      FieldName = 'EMISSAOCTPS'
      Origin = 'PESSOAS.EMISSAOCTPS'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBDSPessoasESTADOCTPS: TIBStringField
      DisplayLabel = 'UF CTPS'
      FieldName = 'ESTADOCTPS'
      Origin = 'PESSOAS.ESTADOCTPS'
      FixedChar = True
      Size = 2
    end
    object IBDSPessoasRF: TIBStringField
      FieldName = 'RF'
      Origin = 'PESSOAS.RF'
      FixedChar = True
      Size = 1
    end
    object IBDSPessoasNAOSABEMAE: TIBStringField
      DisplayLabel = 'N'#227'o Sabe M'#227'e'
      FieldName = 'NAOSABEMAE'
      Origin = 'PESSOAS.NAOSABEMAE'
      FixedChar = True
      Size = 1
    end
    object IBDSPessoasNAOSABEPAI: TIBStringField
      DisplayLabel = 'N'#227'o Sabe Pai'
      FieldName = 'NAOSABEPAI'
      Origin = 'PESSOAS.NAOSABEPAI'
      FixedChar = True
      Size = 1
    end
    object IBDSPessoasPENSAOALIMENTICIA: TIBBCDField
      DisplayLabel = 'Pens'#227'o Aliment'#237'cia'
      FieldName = 'PENSAOALIMENTICIA'
      Origin = 'PESSOAS.PENSAOALIMENTICIA'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSPessoasLOASBPC: TIBBCDField
      DisplayLabel = 'BPC / LOAS'
      FieldName = 'LOASBPC'
      Origin = 'PESSOAS.LOASBPC'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSPessoasAPOSENTADORIA: TIBBCDField
      DisplayLabel = 'Aposentadoria'
      FieldName = 'APOSENTADORIA'
      Origin = 'PESSOAS.APOSENTADORIA'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSPessoasDATACADASTRO: TDateField
      DisplayLabel = 'Data Cadastro'
      FieldName = 'DATACADASTRO'
      Origin = 'PESSOAS.DATACADASTRO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBDSPessoasDATAATUALIZACAO: TDateField
      DisplayLabel = 'Data Atualiza'#231#227'o'
      FieldName = 'DATAATUALIZACAO'
      Origin = 'PESSOAS.DATAATUALIZACAO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBDSPessoasIDUSUARIOCADASTRO: TIntegerField
      DisplayLabel = 'C'#243'd. Usu'#225'rio Cadastro'
      FieldName = 'IDUSUARIOCADASTRO'
      Origin = 'PESSOAS.IDUSUARIOCADASTRO'
    end
    object IBDSPessoasNOMCAD: TIBStringField
      DisplayLabel = 'Nome Usu'#225'rio Cadastro'
      FieldName = 'NOMCAD'
      Origin = 'USUARIOS.USUARIO'
    end
    object IBDSPessoasIDUSUARIOATUALIZACAO: TIntegerField
      DisplayLabel = 'C'#243'd. Usu'#225'rio Atualiza'#231#227'o'
      FieldName = 'IDUSUARIOATUALIZACAO'
      Origin = 'PESSOAS.IDUSUARIOATUALIZACAO'
    end
    object IBDSPessoasNOMATU: TIBStringField
      DisplayLabel = 'Nome Usu'#225'rio Atualiza'#231#227'o'
      FieldName = 'NOMATU'
      Origin = 'USUARIOS.USUARIO'
    end
    object IBDSPessoasPROJOVEMADOLESCENTE: TIBStringField
      FieldName = 'PROJOVEMADOLESCENTE'
      Origin = 'PESSOAS.PROJOVEMADOLESCENTE'
      FixedChar = True
      Size = 1
    end
    object IBDSPessoasVACINADO: TIBStringField
      FieldName = 'VACINADO'
      Origin = 'PESSOAS.VACINADO'
      Size = 1
    end
    object IBDSPessoasIDASSISTENCIASOCIAL: TIntegerField
      FieldName = 'IDASSISTENCIASOCIAL'
      Origin = 'PESSOAS.IDASSISTENCIASOCIAL'
    end
    object IBDSPessoasIDSAUDE: TIntegerField
      FieldName = 'IDSAUDE'
      Origin = 'PESSOAS.IDSAUDE'
    end
    object IBDSPessoasCARTORIO: TIBStringField
      FieldName = 'CARTORIO'
      Origin = 'PESSOAS.CARTORIO'
      Size = 25
    end
    object IBDSPessoasREGLIVRO: TIBStringField
      FieldName = 'REGLIVRO'
      Origin = 'PESSOAS.REGLIVRO'
      Size = 10
    end
    object IBDSPessoasREGFOLHA: TIBStringField
      FieldName = 'REGFOLHA'
      Origin = 'PESSOAS.REGFOLHA'
      Size = 10
    end
    object IBDSPessoasREGTERMO: TIBStringField
      FieldName = 'REGTERMO'
      Origin = 'PESSOAS.REGTERMO'
      Size = 15
    end
    object IBDSPessoasTIPOBPC: TIntegerField
      FieldName = 'TIPOBPC'
      Origin = 'PESSOAS.TIPOBPC'
    end
    object IBDSPessoasTIPOREGISTRO: TIntegerField
      FieldName = 'TIPOREGISTRO'
      Origin = 'PESSOAS.TIPOREGISTRO'
    end
    object IBDSPessoasIDRACA: TIntegerField
      FieldName = 'IDRACA'
      Origin = 'PESSOAS.IDRACA'
      Required = True
    end
  end
  object IBDSDomicilio: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSDomicilioAfterCancel
    AfterDelete = IBDSDomicilioAfterDelete
    AfterOpen = IBDSDomicilioAfterOpen
    AfterPost = IBDSDomicilioAfterPost
    BeforeClose = IBDSDomicilioBeforeClose
    BeforeDelete = IBDSDomicilioBeforeDelete
    BeforeEdit = IBDSDomicilioBeforeEdit
    BeforeInsert = IBDSDomicilioBeforeInsert
    BeforePost = IBDSDomicilioBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from DOMICILIO'
      'where'
      '  IDDOMICILIO = :OLD_IDDOMICILIO')
    InsertSQL.Strings = (
      'insert into DOMICILIO'
      
        '  (IDDOMICILIO, NUMEROPASTA, IDTIPO, ENDERECO, NUMERO, COMPLEMEN' +
        'TO, BAIRRO, IDZONA, '
      
        '   IDSITUACAO, ELETRICIDADE, AGUA, GAS, MANUTENCAO, TRANSPORTES,' +
        ' MEDICAMENTOS, '
      
        '   FINANCIAMENTO, ALUGUEL, OUTROS, BOLSAFAMILIA, VALORBOLSAFAMIL' +
        'IA, RENDAPERCAPTA, IDUSUARIOCADASTRO,'
      
        '   IDUSUARIOATUALIZACAO, TELEFONE, FRALDAS, INSS, VALTELEFONE, M' +
        'ATERIALESCOLAR, ALIMENTACAO, LEITE,'
      
        '   LAZER, CARNES, INTERNET, PENSAOALIMENTICIA, VESTUARIO, COMBUS' +
        'TIVEL, CONSIGNADO, IPTU,'
      
        '   ENERGIAELETRICA, AGUACANALIZADA, NUMEROCOMODOS, NUMERODORMITO' +
        'RIOS, IDINGRESSO)'
      'values'
      
        '  (:IDDOMICILIO, :NUMEROPASTA, :IDTIPO, :ENDERECO, :NUMERO, :COM' +
        'PLEMENTO, :BAIRRO, :IDZONA, '
      
        '   :IDSITUACAO, :ELETRICIDADE, :AGUA, :GAS, :MANUTENCAO, :TRANSP' +
        'ORTES, '
      
        '   :MEDICAMENTOS, :FINANCIAMENTO, :ALUGUEL, :OUTROS, :BOLSAFAMIL' +
        'IA, :VALORBOLSAFAMILIA, :RENDAPERCAPTA,'
      
        '   :IDUSUARIOCADASTRO, :IDUSUARIOATUALIZACAO, :TELEFONE, :FRALDA' +
        'S, :INSS, :VALTELEFONE, :MATERIALESCOLAR, :ALIMENTACAO, :LEITE,'
      
        '   :LAZER, :CARNES, :INTERNET, :PENSAOALIMENTICIA, :VESTUARIO, :' +
        'COMBUSTIVEL, :CONSIGNADO, :IPTU,'
      
        '   :ENERGIAELETRICA, :AGUACANALIZADA, :NUMEROCOMODOS, :NUMERODOR' +
        'MITORIOS, :IDINGRESSO)')
    RefreshSQL.Strings = (
      'select'
      '   A.IDDOMICILIO,'
      '   B.NOME,'
      '   B.NIS,'
      '   B.CPF,'
      '   A.NUMEROPASTA,'
      '   A.IDTIPO,'
      '   A.ENDERECO,'
      '   A.NUMERO,'
      '   A.COMPLEMENTO,'
      '   A.BAIRRO,'
      '   A.IDZONA,'
      '   A.IDSITUACAO,'
      '   A.ELETRICIDADE,'
      '   A.AGUA,'
      '   A.GAS,'
      '   A.MANUTENCAO,'
      '   A.TRANSPORTES,'
      '   A.MEDICAMENTOS,'
      '   A.FINANCIAMENTO,'
      '   A.ALUGUEL,'
      '   A.OUTROS,'
      '   A.BOLSAFAMILIA,'
      '   A.VALORBOLSAFAMILIA,'
      '   A.RENDAPERCAPTA,'
      '   A.DATACADASTRO,'
      '   A.DATAATUALIZACAO,'
      '   A.IDUSUARIOCADASTRO,'
      '   C.USUARIO AS NOMCAD,'
      '   A.IDUSUARIOATUALIZACAO,'
      '   D.USUARIO AS NOMATU,'
      '   A.TELEFONE,'
      '   A.FRALDAS,'
      '   A.INSS,'
      '   A.VALTELEFONE,'
      '   A.MATERIALESCOLAR,'
      '   A.ALIMENTACAO,'
      '   A.LEITE,'
      '   A.LAZER,'
      '   A.CARNES,'
      '   A.INTERNET,'
      '   A.PENSAOALIMENTICIA,'
      '   A.VESTUARIO,'
      '   A.COMBUSTIVEL,'
      '   A.CONSIGNADO,'
      '   A.IPTU,'
      '   A.ENERGIAELETRICA,'
      '   A.AGUACANALIZADA,'
      '   A.NUMEROCOMODOS,'
      '   A.NUMERODORMITORIOS,'
      '   A.IDINGRESSO,'
      '   E.DESCRICAO'
      'from'
      '   DOMICILIO A'
      'join'
      '   PESSOAS B'
      '   ON B.IDDOMICILIO = A.IDDOMICILIO AND B.IDRELACAORF = 1'
      'join'
      '   USUARIOS C'
      '   ON C.REGISTRO = A.IDUSUARIOCADASTRO'
      'join'
      '   USUARIOS D'
      '   ON D.REGISTRO = A.IDUSUARIOATUALIZACAO'
      'join'
      '   INGRESSO E'
      '   ON E.IDINGRESSO = A.IDINGRESSO'
      'where'
      '   A.IDDOMICILIO = :IDDOMICILIO'
      'order by'
      '   B.NOME')
    SelectSQL.Strings = (
      'select'
      '   A.IDDOMICILIO,'
      '   B.NOME,'
      '   B.NIS,'
      '   B.CPF,'
      '   A.NUMEROPASTA,'
      '   A.IDTIPO,'
      '   A.ENDERECO,'
      '   A.NUMERO,'
      '   A.COMPLEMENTO,'
      '   A.BAIRRO,'
      '   A.IDZONA,'
      '   A.IDSITUACAO,'
      '   A.ELETRICIDADE,'
      '   A.AGUA,'
      '   A.GAS,'
      '   A.MANUTENCAO,'
      '   A.TRANSPORTES,'
      '   A.MEDICAMENTOS,'
      '   A.FINANCIAMENTO,'
      '   A.ALUGUEL,'
      '   A.OUTROS,'
      '   A.BOLSAFAMILIA,'
      '   A.VALORBOLSAFAMILIA,'
      '   A.RENDAPERCAPTA,'
      '   A.DATACADASTRO,'
      '   A.DATAATUALIZACAO,'
      '   A.IDUSUARIOCADASTRO,'
      '   C.USUARIO AS NOMCAD,'
      '   A.IDUSUARIOATUALIZACAO,'
      '   D.USUARIO AS NOMATU,'
      '   A.TELEFONE,'
      '   A.FRALDAS,'
      '   A.INSS,'
      '   A.VALTELEFONE,'
      '   A.MATERIALESCOLAR,'
      '   A.ALIMENTACAO,'
      '   A.LEITE,'
      '   A.LAZER,'
      '   A.CARNES,'
      '   A.INTERNET,'
      '   A.PENSAOALIMENTICIA,'
      '   A.VESTUARIO,'
      '   A.COMBUSTIVEL,'
      '   A.CONSIGNADO,'
      '   A.IPTU,'
      '   A.ENERGIAELETRICA,'
      '   A.AGUACANALIZADA,'
      '   A.NUMEROCOMODOS,'
      '   A.NUMERODORMITORIOS,'
      '   A.IDINGRESSO,'
      '   E.DESCRICAO,'
      '   A.IDPUBLICO'
      'from'
      '   DOMICILIO A'
      'join'
      '   PESSOAS B'
      '   ON B.IDDOMICILIO = A.IDDOMICILIO AND B.IDRELACAORF = 1'
      'join'
      '   USUARIOS C'
      '   ON C.REGISTRO = A.IDUSUARIOCADASTRO'
      'join'
      '   USUARIOS D'
      '   ON D.REGISTRO = A.IDUSUARIOATUALIZACAO'
      'join'
      '   INGRESSO E'
      '   ON E.IDINGRESSO = A.IDINGRESSO'
      'order by'
      '   B.NOME')
    ModifySQL.Strings = (
      'update DOMICILIO'
      'set'
      '  NUMEROPASTA = :NUMEROPASTA,'
      '  IDTIPO = :IDTIPO,'
      '  ENDERECO = :ENDERECO,'
      '  NUMERO = :NUMERO,'
      '  COMPLEMENTO = :COMPLEMENTO,'
      '  BAIRRO = :BAIRRO,'
      '  IDZONA = :IDZONA,'
      '  IDSITUACAO = :IDSITUACAO,'
      '  ELETRICIDADE = :ELETRICIDADE,'
      '  AGUA = :AGUA,'
      '  GAS = :GAS,'
      '  MANUTENCAO = :MANUTENCAO,'
      '  TRANSPORTES = :TRANSPORTES,'
      '  MEDICAMENTOS = :MEDICAMENTOS,'
      '  FINANCIAMENTO = :FINANCIAMENTO,'
      '  ALUGUEL = :ALUGUEL,'
      '  OUTROS = :OUTROS,'
      '  BOLSAFAMILIA = :BOLSAFAMILIA,'
      '  VALORBOLSAFAMILIA = :VALORBOLSAFAMILIA,'
      '  RENDAPERCAPTA = :RENDAPERCAPTA,'
      '  DATAATUALIZACAO = :DATAATUALIZACAO,'
      '  IDUSUARIOATUALIZACAO = :IDUSUARIOATUALIZACAO,'
      '  TELEFONE = :TELEFONE,'
      '  FRALDAS = :FRALDAS,'
      '  INSS = :INSS,'
      '  VALTELEFONE = :VALTELEFONE,'
      '  MATERIALESCOLAR = :MATERIALESCOLAR,'
      '  ALIMENTACAO = :ALIMENTACAO,'
      '  LEITE = :LEITE,'
      '  LAZER = :LAZER,'
      '  CARNES = :CARNES,'
      '  INTERNET = :INTERNET,'
      '  PENSAOALIMENTICIA = :PENSAOALIMENTICIA,'
      '  VESTUARIO = :VESTUARIO,'
      '  COMBUSTIVEL = :COMBUSTIVEL,'
      '  CONSIGNADO = :CONSIGNADO,'
      '  IPTU = :IPTU,'
      '  ENERGIAELETRICA = :ENERGIAELETRICA,'
      '  AGUACANALIZADA = :AGUACANALIZADA,'
      '  NUMEROCOMODOS = :NUMEROCOMODOS,'
      '  NUMERODORMITORIOS = :NUMERODORMITORIOS,'
      '  IDINGRESSO = :IDNGRESSO'
      'where'
      '  IDDOMICILIO = :OLD_IDDOMICILIO')
    Left = 40
    Top = 72
    object IBDSDomicilioIDDOMICILIO: TIntegerField
      DisplayLabel = 'C'#243'digo Domic'#237'lio'
      FieldName = 'IDDOMICILIO'
      Origin = 'DOMICILIO.IDDOMICILIO'
      Required = True
    end
    object IBDSDomicilioNOME: TIBStringField
      DisplayLabel = 'Nome Respons'#225'vel Familiar'
      FieldName = 'NOME'
      Origin = 'PESSOAS.NOME'
      Size = 50
    end
    object IBDSDomicilioNIS: TIBStringField
      FieldName = 'NIS'
      Origin = 'PESSOAS.NIS'
      EditMask = '!999\.999\.9999\.9;0; '
      Size = 11
    end
    object IBDSDomicilioCPF: TIBStringField
      FieldName = 'CPF'
      Origin = 'PESSOAS.CPF'
      EditMask = '!999\.999\.999\-99;0; '
      Size = 11
    end
    object IBDSDomicilioNUMEROPASTA: TIntegerField
      DisplayLabel = 'N'#250'mero Pasta'
      FieldName = 'NUMEROPASTA'
      Origin = 'DOMICILIO.NUMEROPASTA'
    end
    object IBDSDomicilioIDTIPO: TIntegerField
      DisplayLabel = 'Tipo Endere'#231'o'
      FieldName = 'IDTIPO'
      Origin = 'DOMICILIO.IDTIPO'
    end
    object IBDSDomicilioENDERECO: TIBStringField
      DisplayLabel = 'Logradouro'
      FieldName = 'ENDERECO'
      Origin = 'DOMICILIO.ENDERECO'
      Size = 50
    end
    object IBDSDomicilioNUMERO: TIntegerField
      DisplayLabel = 'N'#250'mero'
      FieldName = 'NUMERO'
      Origin = 'DOMICILIO.NUMERO'
    end
    object IBDSDomicilioCOMPLEMENTO: TIBStringField
      DisplayLabel = 'Complemento'
      FieldName = 'COMPLEMENTO'
      Origin = 'DOMICILIO.COMPLEMENTO'
      Size = 10
    end
    object IBDSDomicilioBAIRRO: TIBStringField
      DisplayLabel = 'Bairro'
      FieldName = 'BAIRRO'
      Origin = 'DOMICILIO.BAIRRO'
      Size = 35
    end
    object IBDSDomicilioIDZONA: TIntegerField
      DisplayLabel = 'Zona'
      FieldName = 'IDZONA'
      Origin = 'DOMICILIO.IDZONA'
    end
    object IBDSDomicilioIDSITUACAO: TIntegerField
      DisplayLabel = 'Situa'#231#227'o Im'#243'vel'
      FieldName = 'IDSITUACAO'
      Origin = 'DOMICILIO.IDSITUACAO'
    end
    object IBDSDomicilioELETRICIDADE: TIBBCDField
      DisplayLabel = 'Desp. Eletricidade'
      FieldName = 'ELETRICIDADE'
      Origin = 'DOMICILIO.ELETRICIDADE'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioAGUA: TIBBCDField
      DisplayLabel = 'Desp. '#193'gua'
      FieldName = 'AGUA'
      Origin = 'DOMICILIO.AGUA'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioGAS: TIBBCDField
      DisplayLabel = 'Desp. G'#225's'
      FieldName = 'GAS'
      Origin = 'DOMICILIO.GAS'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioMANUTENCAO: TIBBCDField
      DisplayLabel = 'Desp. Manuten'#231#227'o'
      FieldName = 'MANUTENCAO'
      Origin = 'DOMICILIO.MANUTENCAO'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioTRANSPORTES: TIBBCDField
      DisplayLabel = 'Desp. Transporte'
      FieldName = 'TRANSPORTES'
      Origin = 'DOMICILIO.TRANSPORTES'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioMEDICAMENTOS: TIBBCDField
      DisplayLabel = 'Desp. Medicamentos'
      FieldName = 'MEDICAMENTOS'
      Origin = 'DOMICILIO.MEDICAMENTOS'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioFINANCIAMENTO: TIBBCDField
      DisplayLabel = 'Desp. Financiamentos'
      FieldName = 'FINANCIAMENTO'
      Origin = 'DOMICILIO.FINANCIAMENTO'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioALUGUEL: TIBBCDField
      DisplayLabel = 'Desp. Aluguel'
      FieldName = 'ALUGUEL'
      Origin = 'DOMICILIO.ALUGUEL'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioOUTROS: TIBBCDField
      DisplayLabel = 'Outras Despesas'
      FieldName = 'OUTROS'
      Origin = 'DOMICILIO.OUTROS'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioBOLSAFAMILIA: TIBStringField
      DisplayLabel = 'Recebe Bolsa Fam'#237'lia'
      FieldName = 'BOLSAFAMILIA'
      Origin = 'DOMICILIO.BOLSAFAMILIA'
      FixedChar = True
      Size = 1
    end
    object IBDSDomicilioVALORBOLSAFAMILIA: TIBBCDField
      DisplayLabel = 'Valor Benef'#237'cio Bolsa Familia'
      FieldName = 'VALORBOLSAFAMILIA'
      Origin = 'DOMICILIO.VALORBOLSAFAMILIA'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioRENDAPERCAPTA: TIBBCDField
      DisplayLabel = 'Renda Per Capta'
      FieldName = 'RENDAPERCAPTA'
      Origin = 'DOMICILIO.RENDAPERCAPTA'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioDATACADASTRO: TDateField
      DisplayLabel = 'Data Cadastro'
      FieldName = 'DATACADASTRO'
      Origin = 'DOMICILIO.DATACADASTRO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBDSDomicilioDATAATUALIZACAO: TDateField
      DisplayLabel = 'Data Atualiza'#231#227'o'
      FieldName = 'DATAATUALIZACAO'
      Origin = 'DOMICILIO.DATAATUALIZACAO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBDSDomicilioIDUSUARIOCADASTRO: TIntegerField
      DisplayLabel = 'C'#243'd. Usu'#225'rio Cadastro'
      FieldName = 'IDUSUARIOCADASTRO'
      Origin = 'DOMICILIO.IDUSUARIOCADASTRO'
    end
    object IBDSDomicilioNOMCAD: TIBStringField
      DisplayLabel = 'Nome Usu'#225'rio Cadastro'
      FieldName = 'NOMCAD'
      Origin = 'USUARIOS.USUARIO'
    end
    object IBDSDomicilioIDUSUARIOATUALIZACAO: TIntegerField
      DisplayLabel = 'C'#243'd. Usu'#225'rio Atualiza'#231#227'o'
      FieldName = 'IDUSUARIOATUALIZACAO'
      Origin = 'DOMICILIO.IDUSUARIOATUALIZACAO'
    end
    object IBDSDomicilioNOMATU: TIBStringField
      DisplayLabel = 'Nome Usu'#225'rio Atualiza'#231#227'o'
      FieldName = 'NOMATU'
      Origin = 'USUARIOS.USUARIO'
    end
    object IBDSDomicilioTELEFONE: TIBStringField
      DisplayLabel = 'N'#250'm. Telefone'
      FieldName = 'TELEFONE'
      Origin = 'DOMICILIO.TELEFONE'
      EditMask = '!\(99\)9999\-9999;0; '
      Size = 10
    end
    object IBDSDomicilioFRALDAS: TIBBCDField
      DisplayLabel = 'Desp. Fraldas'
      FieldName = 'FRALDAS'
      Origin = 'DOMICILIO.FRALDAS'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioINSS: TIBBCDField
      DisplayLabel = 'Desp. INSS'
      FieldName = 'INSS'
      Origin = 'DOMICILIO.INSS'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioVALTELEFONE: TIBBCDField
      DisplayLabel = 'Desp. Telefone'
      FieldName = 'VALTELEFONE'
      Origin = 'DOMICILIO.VALTELEFONE'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioMATERIALESCOLAR: TIBBCDField
      DisplayLabel = 'Desp. Materal Escolar'
      FieldName = 'MATERIALESCOLAR'
      Origin = 'DOMICILIO.MATERIALESCOLAR'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioALIMENTACAO: TIBBCDField
      DisplayLabel = 'Desp. Alimenta'#231#227'o'
      FieldName = 'ALIMENTACAO'
      Origin = 'DOMICILIO.ALIMENTACAO'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioLEITE: TIBBCDField
      DisplayLabel = 'Desp. Leite'
      FieldName = 'LEITE'
      Origin = 'DOMICILIO.LEITE'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioLAZER: TIBBCDField
      DisplayLabel = 'Desp. Lazer'
      FieldName = 'LAZER'
      Origin = 'DOMICILIO.LAZER'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioCARNES: TIBBCDField
      DisplayLabel = 'Desp. Carn'#234's'
      FieldName = 'CARNES'
      Origin = 'DOMICILIO.CARNES'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioINTERNET: TIBBCDField
      DisplayLabel = 'Desp. Internet'
      FieldName = 'INTERNET'
      Origin = 'DOMICILIO.INTERNET'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioPENSAOALIMENTICIA: TIBBCDField
      DisplayLabel = 'Desp. Pens'#227'o Aliment'#237'cia'
      FieldName = 'PENSAOALIMENTICIA'
      Origin = 'DOMICILIO.PENSAOALIMENTICIA'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioVESTUARIO: TIBBCDField
      DisplayLabel = 'Desp. Vestu'#225'rio'
      FieldName = 'VESTUARIO'
      Origin = 'DOMICILIO.VESTUARIO'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioCOMBUSTIVEL: TIBBCDField
      DisplayLabel = 'Desp. Combust'#237'vel'
      FieldName = 'COMBUSTIVEL'
      Origin = 'DOMICILIO.COMBUSTIVEL'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioCONSIGNADO: TIBBCDField
      DisplayLabel = 'Desp. Consignado'
      FieldName = 'CONSIGNADO'
      Origin = 'DOMICILIO.CONSIGNADO'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioIPTU: TIBBCDField
      DisplayLabel = 'Desp. IPTU'
      FieldName = 'IPTU'
      Origin = 'DOMICILIO.IPTU'
      DisplayFormat = '#,##0.00'
      EditFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object IBDSDomicilioENERGIAELETRICA: TIBStringField
      DisplayLabel = 'Possui Energia El'#233'trica'
      FieldName = 'ENERGIAELETRICA'
      Origin = 'DOMICILIO.ENERGIAELETRICA'
      FixedChar = True
      Size = 1
    end
    object IBDSDomicilioAGUACANALIZADA: TIBStringField
      DisplayLabel = 'Possui '#193'gua Canalizada'
      FieldName = 'AGUACANALIZADA'
      Origin = 'DOMICILIO.AGUACANALIZADA'
      FixedChar = True
      Size = 1
    end
    object IBDSDomicilioNUMEROCOMODOS: TIntegerField
      DisplayLabel = 'N'#250'm. C'#244'modos'
      FieldName = 'NUMEROCOMODOS'
      Origin = 'DOMICILIO.NUMEROCOMODOS'
    end
    object IBDSDomicilioNUMERODORMITORIOS: TIntegerField
      DisplayLabel = 'N'#250'm. Dormit'#243'rios'
      FieldName = 'NUMERODORMITORIOS'
      Origin = 'DOMICILIO.NUMERODORMITORIOS'
    end
    object IBDSDomicilioIDINGRESSO: TIntegerField
      DisplayLabel = 'ID Ingresso'
      FieldName = 'IDINGRESSO'
      Origin = 'DOMICILIO.IDINGRESSO'
    end
    object IBDSDomicilioDESCRICAO: TIBStringField
      DisplayLabel = 'Forma Acesso Unidade'
      FieldName = 'DESCRICAO'
      Origin = 'INGRESSO.DESCRICAO'
      Size = 140
    end
    object IBDSDomicilioIDPUBLICO: TIBStringField
      FieldName = 'IDPUBLICO'
      Origin = 'DOMICILIO.IDPUBLICO'
      Required = True
      FixedChar = True
      Size = 1
    end
  end
  object IBQTipoEndereco: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQTipoEnderecoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from TIPOENDERECO'
      'where IDTIPOENDERECO > 0'
      'order by IDTIPOENDERECO')
    Left = 408
    Top = 16
    object IBQTipoEnderecoIDTIPOENDERECO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDTIPOENDERECO'
      Origin = 'TIPOENDERECO.IDTIPOENDERECO'
      Required = True
    end
    object IBQTipoEnderecoDESCRICAO: TIBStringField
      DisplayLabel = 'Descricao'
      FieldName = 'DESCRICAO'
      Origin = 'TIPOENDERECO.DESCRICAO'
      Required = True
      Size = 35
    end
  end
  object IBQZona: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQZonaAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from ZONA'
      'where IDZONA > 0'
      'order by IDZONA')
    Left = 408
    Top = 64
    object IBQZonaIDZONA: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDZONA'
      Origin = 'ZONA.IDZONA'
      Required = True
    end
    object IBQZonaDESCRICAO: TIBStringField
      DisplayLabel = 'Descricao'
      FieldName = 'DESCRICAO'
      Origin = 'ZONA.DESCRICAO'
      Required = True
    end
  end
  object IBQSituacaoImovel: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQSituacaoImovelAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from SITUACAO'
      'where IDSITUACAO > 0'
      'order by IDSITUACAO')
    Left = 408
    Top = 112
    object IBQSituacaoImovelIDSITUACAO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDSITUACAO'
      Origin = 'SITUACAO.IDSITUACAO'
      Required = True
    end
    object IBQSituacaoImovelDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'SITUACAO.DESCRICAO'
      Required = True
    end
  end
  object IBQSexo: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQSexoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from SEXO'
      'where IDSEXO > 0'
      'order by IDSEXO')
    Left = 320
    Top = 16
    object IBQSexoIDSEXO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDSEXO'
      Origin = 'SEXO.IDSEXO'
      Required = True
    end
    object IBQSexoDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'SEXO.DESCRICAO'
      Required = True
      Size = 15
    end
  end
  object IBQEscolaridade: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQEscolaridadeAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from ESCOLARIDADE'
      'where IDESCOLARIDADE > 0'
      'order by IDESCOLARIDADE')
    Left = 320
    Top = 64
    object IBQEscolaridadeIDESCOLARIDADE: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDESCOLARIDADE'
      Origin = 'ESCOLARIDADE.IDESCOLARIDADE'
      Required = True
    end
    object IBQEscolaridadeDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'ESCOLARIDADE.DESCRICAO'
      Required = True
      Size = 35
    end
  end
  object IBQRelacaoRF: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQRelacaoRFAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from RELACAORF'
      'where IDRELACAORF > 0'
      'order by IDRELACAORF')
    Left = 320
    Top = 112
    object IBQRelacaoRFIDRELACAORF: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDRELACAORF'
      Origin = 'RELACAORF.IDRELACAORF'
      Required = True
    end
    object IBQRelacaoRFDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'RELACAORF.DESCRICAO'
      Required = True
      Size = 35
    end
  end
  object IBQEstadoCivil: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQEstadoCivilAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from ESTADOCIVIL'
      'where IDESTADOCIVIL > 0'
      'order by IDESTADOCIVIL')
    Left = 232
    Top = 16
    object IBQEstadoCivilIDESTADOCIVIL: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDESTADOCIVIL'
      Origin = 'ESTADOCIVIL.IDESTADOCIVIL'
      Required = True
    end
    object IBQEstadoCivilDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'ESTADOCIVIL.DESCRICAO'
      Required = True
      Size = 15
    end
  end
  object IBDSDoencas: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSDoencasAfterCancel
    AfterDelete = IBDSDoencasAfterDelete
    AfterInsert = IBDSDoencasAfterInsert
    AfterOpen = IBDSDoencasAfterOpen
    AfterPost = IBDSDoencasAfterPost
    BeforeClose = IBDSDoencasBeforeClose
    BeforeDelete = IBDSDoencasBeforeDelete
    BeforeEdit = IBDSDoencasBeforeEdit
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from DOENCAS'
      'where'
      '  IDDOENCA = :OLD_IDDOENCA')
    InsertSQL.Strings = (
      'insert into DOENCAS'
      '  (IDDOENCA, DESCRICAO, TIPO)'
      'values'
      '  (:IDDOENCA, :DESCRICAO, :TIPO)')
    RefreshSQL.Strings = (
      'Select '
      '  IDDOENCA,'
      '  DESCRICAO,'
      '  TIPO'
      'from DOENCAS '
      'where'
      '  IDDOENCA = :IDDOENCA')
    SelectSQL.Strings = (
      'select * from DOENCAS'
      'where IDDOENCA > 0'
      'order by IDDOENCA')
    ModifySQL.Strings = (
      'update DOENCAS'
      'set'
      '  DESCRICAO = :DESCRICAO,'
      '  TIPO = :TIPO'
      'where'
      '  IDDOENCA = :OLD_IDDOENCA')
    Left = 40
    Top = 136
    object IBDSDoencasIDDOENCA: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDDOENCA'
      Origin = 'DOENCAS.IDDOENCA'
      Required = True
    end
    object IBDSDoencasDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'DOENCAS.DESCRICAO'
      Size = 35
    end
    object IBDSDoencasTIPO: TIBStringField
      DisplayLabel = 'Tipo'
      FieldName = 'TIPO'
      Origin = 'DOENCAS.TIPO'
      FixedChar = True
      Size = 1
    end
  end
  object IBDSDeficiencias: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSDeficienciasAfterCancel
    AfterDelete = IBDSDeficienciasAfterDelete
    AfterInsert = IBDSDeficienciasAfterInsert
    AfterOpen = IBDSDeficienciasAfterOpen
    AfterPost = IBDSDeficienciasAfterPost
    BeforeClose = IBDSDeficienciasBeforeClose
    BeforeDelete = IBDSDeficienciasBeforeDelete
    BeforeEdit = IBDSDeficienciasBeforeEdit
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from DEFICIENCIAS'
      'where'
      '  IDDEFICIENCIA = :OLD_IDDEFICIENCIA')
    InsertSQL.Strings = (
      'insert into DEFICIENCIAS'
      '  (IDDEFICIENCIA, DESCRICAO, TIPO)'
      'values'
      '  (:IDDEFICIENCIA, :DESCRICAO, :TIPO)')
    RefreshSQL.Strings = (
      'Select '
      '  IDDEFICIENCIA,'
      '  DESCRICAO,'
      '  TIPO'
      'from DEFICIENCIAS '
      'where'
      '  IDDEFICIENCIA = :IDDEFICIENCIA')
    SelectSQL.Strings = (
      'select * from DEFICIENCIAS'
      'where IDDEFICIENCIA > 0'
      'order by IDDEFICIENCIA')
    ModifySQL.Strings = (
      'update DEFICIENCIAS'
      'set'
      '  DESCRICAO = :DESCRICAO,'
      '  TIPO = :TIPO'
      'where'
      '  IDDEFICIENCIA = :OLD_IDDEFICIENCIA')
    Left = 144
    Top = 136
    object IBDSDeficienciasIDDEFICIENCIA: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'IDDEFICIENCIA'
      Origin = 'DEFICIENCIAS.IDDEFICIENCIA'
      Required = True
    end
    object IBDSDeficienciasDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = 'DEFICIENCIAS.DESCRICAO'
      Size = 35
    end
    object IBDSDeficienciasTIPO: TIBStringField
      DisplayLabel = 'Tipo'
      FieldName = 'TIPO'
      Origin = 'DEFICIENCIAS.TIPO'
      FixedChar = True
      Size = 1
    end
  end
  object IBQParametros: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from PARAMETROS')
    Left = 232
    Top = 192
    object IBQParametrosPERIODOPADRAO: TIntegerField
      DisplayLabel = 'Per'#237'odo Padr'#227'o'
      FieldName = 'PERIODOPADRAO'
      Origin = 'PARAMETROS.PERIODOPADRAO'
      Required = True
    end
    object IBQParametrosVERSAO_ATUAL: TIBStringField
      FieldName = 'VERSAO_ATUAL'
      Origin = 'PARAMETROS.VERSAO_ATUAL'
      Required = True
      Size = 12
    end
    object IBQParametrosVERSAO_BD: TIBStringField
      FieldName = 'VERSAO_BD'
      Origin = 'PARAMETROS.VERSAO_BD'
      Size = 12
    end
    object IBQParametrosHABILITAVACINACAO: TIBStringField
      FieldName = 'HABILITAVACINACAO'
      Origin = 'PARAMETROS.HABILITAVACINACAO'
      FixedChar = True
      Size = 1
    end
    object IBQParametrosHABILITAPRENATAL: TIBStringField
      FieldName = 'HABILITAPRENATAL'
      Origin = 'PARAMETROS.HABILITAPRENATAL'
      FixedChar = True
      Size = 1
    end
    object IBQParametrosVALEXPOBR: TIBBCDField
      FieldName = 'VALEXPOBR'
      Origin = 'PARAMETROS.VALEXPOBR'
      Precision = 18
      Size = 2
    end
    object IBQParametrosVALPOBR: TIBBCDField
      FieldName = 'VALPOBR'
      Origin = 'PARAMETROS.VALPOBR'
      Precision = 18
      Size = 2
    end
    object IBQParametrosRENDAFAMCADUNICO: TIBBCDField
      FieldName = 'RENDAFAMCADUNICO'
      Origin = 'PARAMETROS.RENDAFAMCADUNICO'
      Precision = 18
      Size = 2
    end
    object IBQParametrosRENDAPCTCADUNICO: TIBBCDField
      FieldName = 'RENDAPCTCADUNICO'
      Origin = 'PARAMETROS.RENDAPCTCADUNICO'
      Precision = 18
      Size = 2
    end
    object IBQParametrosRENDAPCTTSE: TIBBCDField
      FieldName = 'RENDAPCTTSE'
      Origin = 'PARAMETROS.RENDAPCTTSE'
      Precision = 18
      Size = 2
    end
    object IBQParametrosRENDAPCTTSA: TIBBCDField
      FieldName = 'RENDAPCTTSA'
      Origin = 'PARAMETROS.RENDAPCTTSA'
      Precision = 18
      Size = 2
    end
    object IBQParametrosSALARIOMINIMO: TIBBCDField
      FieldName = 'SALARIOMINIMO'
      Origin = 'PARAMETROS.SALARIOMINIMO'
      Precision = 18
      Size = 2
    end
    object IBQParametrosULTIMAPASTA: TIntegerField
      FieldName = 'ULTIMAPASTA'
      Origin = 'PARAMETROS.ULTIMAPASTA'
      Required = True
    end
    object IBQParametrosULTIMODOMICILIO: TIntegerField
      FieldName = 'ULTIMODOMICILIO'
      Origin = 'PARAMETROS.ULTIMODOMICILIO'
      Required = True
    end
    object IBQParametrosULTIMAPESSOA: TIntegerField
      FieldName = 'ULTIMAPESSOA'
      Origin = 'PARAMETROS.ULTIMAPESSOA'
      Required = True
    end
    object IBQParametrosENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'PARAMETROS.ENDERECO'
      Size = 75
    end
    object IBQParametrosNUMERO: TIntegerField
      FieldName = 'NUMERO'
      Origin = 'PARAMETROS.NUMERO'
    end
    object IBQParametrosCOMPLEMENTO: TIBStringField
      FieldName = 'COMPLEMENTO'
      Origin = 'PARAMETROS.COMPLEMENTO'
      Size = 15
    end
    object IBQParametrosBAIRRO: TIBStringField
      FieldName = 'BAIRRO'
      Origin = 'PARAMETROS.BAIRRO'
      Size = 30
    end
    object IBQParametrosCEP: TIBStringField
      FieldName = 'CEP'
      Origin = 'PARAMETROS.CEP'
      EditMask = '!99\.999\-999;0; '
      FixedChar = True
      Size = 8
    end
    object IBQParametrosCIDADE: TIBStringField
      FieldName = 'CIDADE'
      Origin = 'PARAMETROS.CIDADE'
      Size = 45
    end
    object IBQParametrosESTADO: TIBStringField
      FieldName = 'ESTADO'
      Origin = 'PARAMETROS.ESTADO'
      FixedChar = True
      Size = 2
    end
    object IBQParametrosTELEFONE1: TIBStringField
      FieldName = 'TELEFONE1'
      Origin = 'PARAMETROS.TELEFONE1'
      EditMask = '!\(99\)09999\-9999;0; '
      Size = 11
    end
    object IBQParametrosTELEFONE2: TIBStringField
      FieldName = 'TELEFONE2'
      Origin = 'PARAMETROS.TELEFONE2'
      EditMask = '!\(99\)09999\-9999;0; '
      Size = 11
    end
  end
  object IBDSConcessao: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSConcessaoAfterCancel
    AfterInsert = IBDSConcessaoAfterInsert
    AfterOpen = IBDSConcessaoAfterOpen
    AfterPost = IBDSConcessaoAfterPost
    BeforeClose = IBDSConcessaoBeforeClose
    BeforeInsert = IBDSConcessaoBeforeInsert
    BufferChunks = 1000
    CachedUpdates = False
    InsertSQL.Strings = (
      '  INSERT INTO CONCESSAO ('
      '    IDCONCESSAO,'
      '    IDDOMICILIO,'
      '    IDPESSOA,'
      '    IDPROGRAMA,'
      '    IDBENEFICIO,'
      '    DATACONCESSAO,'
      '    DATAINICIO,'
      '    PERIODO,'
      '    USUARIOCONCESSAO,'
      '    ATIVO)'
      '  VALUES ('
      '    :IDCONCESSAO,'
      '    :IDDOMICILIO,'
      '    :IDPESSOA,'
      '    :IDPROGRAMA,'
      '    :IDBENEFICIO,'
      '    :DATACONCESSAO,'
      '    :DATAINICIO,'
      '    :PERIODO,'
      '    :USUARIOCONCESSAO,'
      '    :ATIVO)')
    RefreshSQL.Strings = (
      'select * from CONCESSAO')
    SelectSQL.Strings = (
      'select * from CONCESSAO')
    Left = 40
    Top = 200
    object IBDSConcessaoIDCONCESSAO: TIntegerField
      DisplayLabel = 'Concess'#227'o'
      FieldName = 'IDCONCESSAO'
      Origin = 'CONCESSAO.IDCONCESSAO'
      Required = True
    end
    object IBDSConcessaoIDDOMICILIO: TIntegerField
      DisplayLabel = 'Domic'#237'lio'
      FieldName = 'IDDOMICILIO'
      Origin = 'CONCESSAO.IDDOMICILIO'
    end
    object IBDSConcessaoIDPESSOA: TIntegerField
      DisplayLabel = 'Pessoa'
      FieldName = 'IDPESSOA'
      Origin = 'CONCESSAO.IDPESSOA'
    end
    object IBDSConcessaoPESSOA: TStringField
      DisplayLabel = 'Pessoa'
      FieldKind = fkLookup
      FieldName = 'PESSOA'
      LookupDataSet = IBDSPessoas
      LookupKeyFields = 'IDPESSOA'
      LookupResultField = 'NOME'
      KeyFields = 'IDPESSOA'
      Size = 50
      Lookup = True
    end
    object IBDSConcessaoIDPROGRAMA: TIntegerField
      DisplayLabel = 'Programa'
      FieldName = 'IDPROGRAMA'
      Origin = 'CONCESSAO.IDPROGRAMA'
    end
    object IBDSConcessaoPROGRAMA: TStringField
      DisplayLabel = 'Programa Social'
      FieldKind = fkLookup
      FieldName = 'PROGRAMA'
      LookupDataSet = IBDSProgramaSocial
      LookupKeyFields = 'IDPROGRAMA'
      LookupResultField = 'DESCRICAO'
      KeyFields = 'IDPROGRAMA'
      Size = 35
      Lookup = True
    end
    object IBDSConcessaoIDBENEFICIO: TIntegerField
      DisplayLabel = 'Benef'#237'cio'
      FieldName = 'IDBENEFICIO'
      Origin = 'CONCESSAO.IDBENEFICIO'
    end
    object IBDSConcessaoBENEFICIO: TStringField
      DisplayLabel = 'Benef'#237'cio Concedido'
      FieldKind = fkLookup
      FieldName = 'BENEFICIO'
      LookupDataSet = IBDSBeneficios
      LookupKeyFields = 'IDBENEFICIO'
      LookupResultField = 'DESCRICAO'
      KeyFields = 'IDBENEFICIO'
      Size = 35
      Lookup = True
    end
    object IBDSConcessaoDATACONCESSAO: TDateField
      DisplayLabel = 'Data Concess'#227'o'
      FieldName = 'DATACONCESSAO'
      Origin = 'CONCESSAO.DATACONCESSAO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '99/99/9999;1; '
    end
    object IBDSConcessaoDATAINICIO: TDateField
      DisplayLabel = 'Data In'#237'cio'
      FieldName = 'DATAINICIO'
      Origin = 'CONCESSAO.DATAINICIO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '99/99/9999;1; '
    end
    object IBDSConcessaoPERIODO: TIntegerField
      DisplayLabel = 'Per'#237'odo'
      FieldName = 'PERIODO'
      Origin = 'CONCESSAO.PERIODO'
    end
    object IBDSConcessaoUSUARIOCONCESSAO: TIntegerField
      DisplayLabel = 'Usu'#225'rio Concess'#227'o'
      FieldName = 'USUARIOCONCESSAO'
      Origin = 'CONCESSAO.USUARIOCONCESSAO'
    end
    object IBDSConcessaoATIVO: TIBStringField
      DisplayLabel = 'Ativo'
      FieldName = 'ATIVO'
      Origin = 'CONCESSAO.ATIVO'
      FixedChar = True
      Size = 1
    end
    object IBDSConcessaoLANCAMENTOS: TIntegerField
      FieldName = 'LANCAMENTOS'
      Origin = 'CONCESSAO.LANCAMENTOS'
      Required = True
    end
  end
  object IBDSLancamentos: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSLancamentosAfterCancel
    AfterInsert = IBDSLancamentosAfterInsert
    AfterOpen = IBDSLancamentosAfterOpen
    AfterPost = IBDSLancamentosAfterPost
    BeforeClose = IBDSLancamentosBeforeClose
    BeforeInsert = IBDSLancamentosBeforeInsert
    BufferChunks = 1000
    CachedUpdates = False
    InsertSQL.Strings = (
      '  INSERT INTO LANCAMENTOS ('
      '    REGISTRO,'
      '    IDCONCESSAO,'
      '    IDLANCAMENTO,'
      '    IDPESSOA,'
      '    IDBENEFICIO,'
      '    DATALANCAMENTO,'
      '    QUANTIDADE,'
      '    SITUACAO,'
      '    IDUSUARIO)'
      '  VALUES ('
      '    :REGISTRO,'
      '    :IDCONCESSAO,'
      '    :IDLANCAMENTO,'
      '    :IDPESSOA,'
      '    :IDBENEFICIO,'
      '    :DATALANCAMENTO,'
      '    :QUANTIDADE,'
      '    :SITUACAO,'
      '    :IDUSUARIO)')
    RefreshSQL.Strings = (
      'select * from LANCAMENTOS')
    SelectSQL.Strings = (
      'select * from LANCAMENTOS'
      'ORDER BY IDCONCESSAO, IDBENEFICIO, IDLANCAMENTO')
    Left = 144
    Top = 200
    object IBDSLancamentosREGISTRO: TIntegerField
      DisplayLabel = 'Registro'
      FieldName = 'REGISTRO'
      Origin = 'LANCAMENTOS.REGISTRO'
      Required = True
    end
    object IBDSLancamentosIDCONCESSAO: TIntegerField
      DisplayLabel = 'Concess'#227'o'
      FieldName = 'IDCONCESSAO'
      Origin = 'LANCAMENTOS.IDCONCESSAO'
    end
    object IBDSLancamentosIDLANCAMENTO: TIntegerField
      DisplayLabel = 'Lan'#231'amento'
      FieldName = 'IDLANCAMENTO'
      Origin = 'LANCAMENTOS.IDLANCAMENTO'
    end
    object IBDSLancamentosIDPESSOA: TIntegerField
      DisplayLabel = 'Pessoa'
      FieldName = 'IDPESSOA'
      Origin = 'LANCAMENTOS.IDPESSOA'
    end
    object IBDSLancamentosIDBENEFICIO: TIntegerField
      DisplayLabel = 'Benef'#237'cio'
      FieldName = 'IDBENEFICIO'
      Origin = 'LANCAMENTOS.IDBENEFICIO'
    end
    object IBDSLancamentosDATALANCAMENTO: TDateField
      DisplayLabel = 'Data Lan'#231'amento'
      FieldName = 'DATALANCAMENTO'
      Origin = 'LANCAMENTOS.DATALANCAMENTO'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '99/99/9999;1; '
    end
    object IBDSLancamentosQUANTIDADE: TIntegerField
      DisplayLabel = 'Quantidade'
      FieldName = 'QUANTIDADE'
      Origin = 'LANCAMENTOS.QUANTIDADE'
    end
    object IBDSLancamentosSITUACAO: TIBStringField
      DisplayLabel = 'Situa'#231#227'o'
      FieldName = 'SITUACAO'
      Origin = 'LANCAMENTOS.SITUACAO'
      FixedChar = True
      Size = 1
    end
    object IBDSLancamentosIDUSUARIO: TIntegerField
      DisplayLabel = 'Usu'#225'rio'
      FieldName = 'IDUSUARIO'
      Origin = 'LANCAMENTOS.IDUSUARIO'
    end
  end
  object IBDSAtendimento: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSAtendimentoAfterCancel
    AfterInsert = IBDSAtendimentoAfterInsert
    AfterOpen = IBDSAtendimentoAfterOpen
    AfterPost = IBDSAtendimentoAfterPost
    BeforeClose = IBDSAtendimentoBeforeClose
    BeforeInsert = IBDSAtendimentoBeforeInsert
    BeforePost = IBDSAtendimentoBeforePost
    BufferChunks = 1000
    CachedUpdates = False
    InsertSQL.Strings = (
      '  INSERT INTO ATENDIMENTO ('
      '    IDATENDIMENTO,'
      '    IDDOMICILIO,'
      '    IDPESSOA,'
      '    DATA,'
      '    HORA,'
      '    ATENDIMENTO,'
      '    IDUSUARIO,'
      '    IDAUXILIARATEND)'
      '  VALUES ('
      '    :IDATENDIMENTO,'
      '    :IDDOMICILIO,'
      '    :IDPESSOA,'
      '    :DATA,'
      '    :HORA,'
      '    :ATENDIMENTO,'
      '    :IDUSUARIO,'
      '    :IDAUXILIARATEND)')
    RefreshSQL.Strings = (
      'select * from ATENDIMENTO')
    SelectSQL.Strings = (
      'select * from ATENDIMENTO'
      'where IDDOMICILIO = :DOMICILIO'
      'ORDER BY IDDOMICILIO, IDATENDIMENTO')
    Left = 232
    Top = 72
    object IBDSAtendimentoIDATENDIMENTO: TIntegerField
      DisplayLabel = 'Registro'
      FieldName = 'IDATENDIMENTO'
      Origin = 'ATENDIMENTO.IDATENDIMENTO'
      Required = True
    end
    object IBDSAtendimentoIDDOMICILIO: TIntegerField
      DisplayLabel = 'Domic'#237'lio'
      FieldName = 'IDDOMICILIO'
      Origin = 'ATENDIMENTO.IDDOMICILIO'
    end
    object IBDSAtendimentoIDPESSOA: TIntegerField
      DisplayLabel = 'Pessoa'
      FieldName = 'IDPESSOA'
      Origin = 'ATENDIMENTO.IDPESSOA'
    end
    object IBDSAtendimentoDATA: TDateField
      DisplayLabel = 'Data'
      FieldName = 'DATA'
      Origin = 'ATENDIMENTO.DATA'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object IBDSAtendimentoHORA: TTimeField
      DisplayLabel = 'Hora'
      FieldName = 'HORA'
      Origin = 'ATENDIMENTO.HORA'
      DisplayFormat = 'hh:mm:ss'
      EditMask = '!99:99:99;1; '
    end
    object IBDSAtendimentoATENDIMENTO: TMemoField
      DisplayLabel = 'Atendimento'
      FieldName = 'ATENDIMENTO'
      Origin = 'ATENDIMENTO.ATENDIMENTO'
      BlobType = ftMemo
      Size = 8
    end
    object IBDSAtendimentoIDUSUARIO: TIntegerField
      DisplayLabel = 'Usu'#225'rio'
      FieldName = 'IDUSUARIO'
      Origin = 'ATENDIMENTO.IDUSUARIO'
    end
    object IBDSAtendimentoIDAUXILIARATEND: TIntegerField
      FieldName = 'IDAUXILIARATEND'
      Origin = 'ATENDIMENTO.IDAUXILIARATEND'
    end
    object IBDSAtendimentoCHAVEATENDIMENTO: TIBStringField
      FieldName = 'CHAVEATENDIMENTO'
      Origin = 'ATENDIMENTO.CHAVEATENDIMENTO'
      Size = 13
    end
    object IBDSAtendimentoENCAMINHAMENTO: TIBStringField
      FieldName = 'ENCAMINHAMENTO'
      Origin = 'ATENDIMENTO.ENCAMINHAMENTO'
      FixedChar = True
      Size = 1
    end
    object IBDSAtendimentoCHAVEENCAMINHAMENTO: TIBStringField
      FieldName = 'CHAVEENCAMINHAMENTO'
      Origin = 'ATENDIMENTO.CHAVEENCAMINHAMENTO'
      Size = 13
    end
  end
  object IBQIngresso: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQIngressoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from INGRESSO'
      'order by IDINGRESSO')
    Left = 320
    Top = 168
    object IBQIngressoIDINGRESSO: TIntegerField
      FieldName = 'IDINGRESSO'
      Origin = 'INGRESSO.IDINGRESSO'
      Required = True
    end
    object IBQIngressoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'INGRESSO.DESCRICAO'
      Required = True
      Size = 140
    end
  end
  object IBQCodigoEncaminhamento: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQCodigoEncaminhamentoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from CODIGOENCAMINHAMENTO'
      'order by IDENCAMINHAMENTO')
    Left = 440
    Top = 168
    object IBQCodigoEncaminhamentoIDENCAMINHAMENTO: TIntegerField
      FieldName = 'IDENCAMINHAMENTO'
      Origin = 'CODIGOENCAMINHAMENTO.IDENCAMINHAMENTO'
      Required = True
    end
    object IBQCodigoEncaminhamentoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'CODIGOENCAMINHAMENTO.DESCRICAO'
      Required = True
      Size = 140
    end
  end
  object IBDSEncaminhamento: TIBDataSet
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterCancel = IBDSEncaminhamentoAfterCancel
    AfterInsert = IBDSEncaminhamentoAfterInsert
    AfterOpen = IBDSEncaminhamentoAfterOpen
    AfterPost = IBDSEncaminhamentoAfterPost
    BeforeClose = IBDSEncaminhamentoBeforeClose
    BeforeInsert = IBDSEncaminhamentoBeforeInsert
    BufferChunks = 1000
    CachedUpdates = False
    InsertSQL.Strings = (
      'insert into ENCAMINHAMENTOS'
      
        '  (IDREGISTRO, IDDOMICILIO, IDPESSOA, IDENCAMINHAMENTO, DATA, HO' +
        'RA, UNIDADE, OBJETIVO, '
      '   IDUSUARIO)'
      'values'
      
        '  (:IDREGISTRO, :IDDOMICILIO, :IDPESSOA, :IDENCAMINHAMENTO, :DAT' +
        'A, :HORA, :UNIDADE, '
      '   :OBJETIVO, :IDUSUARIO)')
    RefreshSQL.Strings = (
      'Select '
      '  IDREGISTRO,'
      '  IDDOMICILIO,'
      '  IDPESSOA,'
      '  IDENCAMINHAMENTO,'
      '  DATA,'
      '  HORA,'
      '  UNIDADE,'
      '  OBJETIVO,'
      '  IDUSUARIO'
      'from ENCAMINHAMENTOS '
      'where'
      '  IDREGISTRO = :IDREGISTRO')
    SelectSQL.Strings = (
      'select *'
      'from ENCAMINHAMENTOS'
      'where IDDOMICILIO = :DOMICILIO'
      'order by IDREGISTRO')
    Left = 248
    Top = 136
    object IBDSEncaminhamentoIDREGISTRO: TIntegerField
      FieldName = 'IDREGISTRO'
      Origin = 'ENCAMINHAMENTOS.IDREGISTRO'
      Required = True
    end
    object IBDSEncaminhamentoIDDOMICILIO: TIntegerField
      FieldName = 'IDDOMICILIO'
      Origin = 'ENCAMINHAMENTOS.IDDOMICILIO'
    end
    object IBDSEncaminhamentoIDPESSOA: TIntegerField
      FieldName = 'IDPESSOA'
      Origin = 'ENCAMINHAMENTOS.IDPESSOA'
    end
    object IBDSEncaminhamentoIDENCAMINHAMENTO: TIntegerField
      FieldName = 'IDENCAMINHAMENTO'
      Origin = 'ENCAMINHAMENTOS.IDENCAMINHAMENTO'
    end
    object IBDSEncaminhamentoDATA: TDateField
      FieldName = 'DATA'
      Origin = 'ENCAMINHAMENTOS.DATA'
    end
    object IBDSEncaminhamentoHORA: TTimeField
      FieldName = 'HORA'
      Origin = 'ENCAMINHAMENTOS.HORA'
    end
    object IBDSEncaminhamentoUNIDADE: TIBStringField
      FieldName = 'UNIDADE'
      Origin = 'ENCAMINHAMENTOS.UNIDADE'
      Size = 100
    end
    object IBDSEncaminhamentoOBJETIVO: TMemoField
      FieldName = 'OBJETIVO'
      Origin = 'ENCAMINHAMENTOS.OBJETIVO'
      BlobType = ftMemo
      Size = 8
    end
    object IBDSEncaminhamentoIDUSUARIO: TIntegerField
      FieldName = 'IDUSUARIO'
      Origin = 'ENCAMINHAMENTOS.IDUSUARIO'
    end
    object IBDSEncaminhamentoCHAVEENCAMINHAMENTO: TIBStringField
      FieldName = 'CHAVEENCAMINHAMENTO'
      Origin = 'ENCAMINHAMENTOS.CHAVEENCAMINHAMENTO'
      Size = 13
    end
  end
  object IBQAuxiliarAtendimento: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQAuxiliarAtendimentoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from AUXILIARATENDIMENTO'
      'order by IDAUXILIARATEND')
    Left = 504
    Top = 112
    object IBQAuxiliarAtendimentoIDAUXILIARATEND: TIntegerField
      FieldName = 'IDAUXILIARATEND'
      Origin = 'AUXILIARATENDIMENTO.IDAUXILIARATEND'
      Required = True
    end
    object IBQAuxiliarAtendimentoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'AUXILIARATENDIMENTO.DESCRICAO'
      Required = True
      Size = 100
    end
  end
  object IBQUnidadeAssistSocial: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQUnidadeAssistSocialAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from UNIDADEASSISTSOCIAL'
      'order by IDUNIDADEASSISTECIA')
    Left = 320
    Top = 224
    object IBQUnidadeAssistSocialIDUNIDADEASSISTECIA: TIntegerField
      FieldName = 'IDUNIDADEASSISTECIA'
      Origin = 'UNIDADEASSISTSOCIAL.IDUNIDADEASSISTECIA'
      Required = True
    end
    object IBQUnidadeAssistSocialCODIGOUNIDADE: TLargeintField
      FieldName = 'CODIGOUNIDADE'
      Origin = 'UNIDADEASSISTSOCIAL.CODIGOUNIDADE'
      Required = True
    end
    object IBQUnidadeAssistSocialNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'UNIDADEASSISTSOCIAL.NOME'
      Required = True
      Size = 50
    end
    object IBQUnidadeAssistSocialTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'UNIDADEASSISTSOCIAL.TELEFONE'
      Size = 12
    end
    object IBQUnidadeAssistSocialENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'UNIDADEASSISTSOCIAL.ENDERECO'
      Size = 100
    end
    object IBQUnidadeAssistSocialSISTEMA: TIBStringField
      FieldName = 'SISTEMA'
      Origin = 'UNIDADEASSISTSOCIAL.SISTEMA'
      FixedChar = True
      Size = 1
    end
  end
  object IBQUnidadeSaude: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQUnidadeSaudeAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from UNIDADESAUDE'
      'order by IDUNIDADESAUDE')
    Left = 440
    Top = 224
    object IBQUnidadeSaudeIDUNIDADESAUDE: TIntegerField
      FieldName = 'IDUNIDADESAUDE'
      Origin = 'UNIDADESAUDE.IDUNIDADESAUDE'
      Required = True
    end
    object IBQUnidadeSaudeCNES: TIntegerField
      FieldName = 'CNES'
      Origin = 'UNIDADESAUDE.CNES'
      Required = True
    end
    object IBQUnidadeSaudeNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'UNIDADESAUDE.NOME'
      Required = True
      Size = 50
    end
    object IBQUnidadeSaudeTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'UNIDADESAUDE.TELEFONE'
      Size = 12
    end
    object IBQUnidadeSaudeENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'UNIDADESAUDE.ENDERECO'
      Size = 100
    end
    object IBQUnidadeSaudeSISTEMA: TIBStringField
      FieldName = 'SISTEMA'
      Origin = 'UNIDADESAUDE.SISTEMA'
      FixedChar = True
      Size = 1
    end
  end
  object IBQRaca: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQRacaAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from RACA'
      'order by IDRACA')
    Left = 520
    Top = 224
    object IBQRacaIDRACA: TIntegerField
      FieldName = 'IDRACA'
      Origin = 'RACA.IDRACA'
      Required = True
    end
    object IBQRacaDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'RACA.DESCRICAO'
      Required = True
      Size = 10
    end
    object IBQRacaSISTEMA: TIBStringField
      FieldName = 'SISTEMA'
      Origin = 'RACA.SISTEMA'
      FixedChar = True
      Size = 1
    end
  end
  object IBQRestricao: TIBQuery
    Database = DMSistema_frm.IBDataBaseSIGAS
    Transaction = DMSistema_frm.IBTransactionSIGAS
    ForcedRefresh = True
    AfterOpen = IBQRestricaoAfterOpen
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from RESTRICAOINFS'
      'order by IDRESTRICAO')
    Left = 600
    Top = 224
    object IBQRestricaoIDRESTRICAO: TIntegerField
      FieldName = 'IDRESTRICAO'
      Origin = 'RESTRICAOINFS.IDRESTRICAO'
      Required = True
    end
    object IBQRestricaoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'RESTRICAOINFS.DESCRICAO'
      Required = True
      Size = 60
    end
    object IBQRestricaoVALOR: TIntegerField
      FieldName = 'VALOR'
      Origin = 'RESTRICAOINFS.VALOR'
      Required = True
    end
    object IBQRestricaoSISTEMA: TIBStringField
      FieldName = 'SISTEMA'
      Origin = 'RESTRICAOINFS.SISTEMA'
      FixedChar = True
      Size = 1
    end
  end
end
